(FILECREATED "14-SEP-74 15:43:41" P6.;1 5194   )


  (LISPXPRINT (QUOTE P6COMS)
	      T)
  (RPAQQ P6COMS (PUP6COMS PUP6FNS))
  (RPAQQ PUP6COMS
	 ((FNS * PUP6FNS)
	  $ ADAPTATION:DEFER:DECISION:KNOWLEDGE ADAPTATION:RESOLVE:DECISION:KNOWLEDGE ADJECTIVES AFFECTS:ALL 
	  AFFECTS:ALL:DEFER:DECISION:KNOWLEDGE ALPHORDER ALTERNATIVES:DEFER:DECISION:KNOWLEDGE 
	  ALTERNATIVES:RESOLVE:DECISION:KNOWLEDGE AND:LOOP:TERMINATION:KNOWLEDGE APPLIED:SO:AS:TO:KEEP ARG1 ARG1 ARG1 
	  ASSERT:LISTS BEING BOOLEAN:DEFER:DECISION:KNOWLEDGE BOOLEAN:RESOLVE:DECISION:KNOWLEDGE BOTH:RESULTS 
	  BREAKUP:LIST CALL COMEVAL COMMENT COMPILABLE:BEING:PARTS DEFINITION:DEFER:DECISION:KNOWLEDGE 
	  DEFINITION:RESOLVE:DECISION:KNOWLEDGE DICHOTOMY:DEFER:DECISION:KNOWLEDGE DICHOTOMY:RESOLVE:DECISION:KNOWLEDGE 
	  DOES DOESNT DUMMY:ARGUMENT EQUAL EQUALS EVAL EVAL:BEING:PARTS EXPERTAG EXPERTISE FALSE FAST:BEING:LIST 
	  FAST:COMPLEX FAST:FUNCTION:LIST FINAL:PREADLIST FLOW:ASSIGNMENT FOREVER FUNDAMENTAL:IDEN:TABLE GI:DIALOG 
	  GLOBAL:CONTEXT:0 GO HOLDX INFERIOR ING IS IS:BEING:LIST ISNT KNOWLEDGE LABEL:COUNTER LEFT:SIDE 
	  LIST:VALUE:SETUP LONG:TAG MINOR:WORDS NAME NEW:P:NUMBER NO:RESULTS NON:EVAL:BEING:PARTS NON:EXECUTABLE 
	  NOT:TIME:YET ONETYPE ONETYPE:DEFER:DECISION:KNOWLEDGE ONETYPE:RESOLVE:DECISION:KNOWLEDGE PARTS 
	  PERMANENT:KNOWN:NAMES POSSIBLE PREADLIST PREDICATE:DEFER:DECISION:KNOWLEDGE 
	  PREDICATE:RESOLVE:DECISION:KNOWLEDGE PRIMITIVE:PROGRAMS:LIST PRIMITIVE:VARS:LIST PROGRAM:WRITING:PHASES 
	  PROPERTY:LIST:SETUP RESULT:COUNTER RESULTS RIGHT:SIDE SET:OF SET:OF:BEING:PARTS SET:OF:BEINGS SINCE SNAP 
	  SNAPFNS SNAPVARS SOMEOF:DEFER:DECISION:KNOWLEDGE SOMEOF:RESOLVE:DECISION:KNOWLEDGE STICKY:BNAME STICKY:BPART 
	  SUBSETOF:DEFER:DECISION:KNOWLEDGE SUBSETOF:RESOLVE:DECISION:KNOWLEDGE SUPERIOR TASK:TYPE TRIVIAL:BEING:LIST 
	  TRIVIAL:DEMON:LIST UNKNOWN UNTIL WHEN:ALL WHEN:ALL:DEFER:DECISION:KNOWLEDGE YES YES:RESULTS YESNO YESNO:TAG
	  (COMS * (LIST (APPEND (QUOTE (PROP ALL))
				SET:OF:BEINGS)))
	  (P (MAPC (APPEND PUP6FNS SET:OF:BEINGS SET:OF:BEING:PARTS ADJECTIVES)
		   (FUNCTION (LAMBDA (V)
				     (SET V V))))
	     (SETQ NOLINKFNS T)
	     (SETQ #RPARS NIL)
	     (DWIM)
	     (PRIN1 "
DWIM DISABLED. TO GET AUTOMATIC EDITF FROM SOURCE, TYPE DWIM(T)
")
	     (CHANGESLICE 6)
	     (SET:UP:IDEN:TABLE)
	     (SET:UP:EFFECTS:TABLE)
	     (WIDEPAPER T))
	  (P (PUPRIN1 " MINI PUP FILE; USE FAD OR AD OR MAKEFILE ")
	     (TERPRI)
	     (TERPRI)
	     (PUPRIN1 "
THE BEINGS HAVEN'T BEEN SEMI-COMPILED. DO SO, OR LOAD CBE.COM
"))
	  (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA VECTOR TUPLE STRUCTURE CSORT 
										       COMMENT CLASS)
										(NLAML FORSOME)))))
  (RPAQQ PUP6FNS
	 (@ A:BEING:ORDER A:BEING:WHEN AD AD1 ADD:BEING ADD:EFFECTS ADD:IDEN ALLSUBSTS ANTI:RULE ANTIRULE ASSERTIONS 
	    ATOMP ATTENTION:DEMONS BREAK:PREADLIST CAAR:ORDER CAR:ORDER CHANGEB CHANGEP CHECK:COMMENTS CLASS COLON:BACK 
	    COLON:BREAK COMMENT COMPATIBLE CSORT DEFERRAL:DEMON DETERMINE:ALL:ARG2:VALUES DETERMINE:ALL:ARG3:VALUES 
	    DETERMINE:ALL:ARG:VALUES DETERMINE:ARG2:VALUE DETERMINE:ARG3:VALUE DETERMINE:ARG:VALUE DIMENSION1 
	    DIMENSION2 DIMENSION3 DISK:DUMP DOT:PROD DUMMIES DUMP:BEING ECONOMY:DEMON ELIM:COMMON:HEAD ELIM:COMMON:TAIL 
	    ENTER EVALUATE:AFFECT EVEN:ALT FAD FAST FAST:A:BEING:ORDER FAST:BEING:COMPLEX FAST:COMPILE FAST:PREAD 
	    FIND:AND:TAG FIND:INSIDE FIRST:FEW FIRSTN FLATTEN FLOW:PRECEDED FOREVER FORGETFUL:USER:DEMON FORGOT:ANY 
	    FORSOME FRINGE:OF:CONCIOUSNESS:DEMON GET:USAGE GETCODE HEAD HIGHLY:STRUCTURED IDIOM:DEMON 
	    IMPROBABILITY:COMPLEX INCOMMENT INFER:INSIDE INFERENCE:DEMONS INITIALS INSERT:PRINT:STATEMENTS INSIDE 
	    INSTANTIATE INTUPLE INVECTOR IRRELEVANT JPL LEARN:BY:EXAMPLE LIST:JOIN LIST:TRANSLATE LISTFILES 
	    LOCATE:AFFECTED:AREA LOCATION:TRANSLATE LONG:NAME:DEMON LUMP:ASSERTIONS MAD MAIN:WORDS MAKE:SPECIFIC MATCH 
	    MERGE:IN MERGE:IN2 MINIMUM MINTERSECTION MOST:GENERAL MOVE:BEING MULT:INTERSECTION NEW:IDEN NEW:LEVEL 
	    NOT:YET:INITIALIZED NULLIFY NUMBER:SUBST ODD:ALT OPPOSITE OUTFORM OUTNIL OUTQUOTE OUTTUPLE OUTVECTOR PBT 
	    PBTV PERMIT:DETAILED:DECISION PERMIT:USER:INTERRUPT PLISTMATCH PLURAL POP:DEMONS PREAD PREDICT:AFFECT PREPL 
	    PRET PROCEDURE:INTERSECTION PROCEDURE:PULLOUT PROCEDURE:SUBSET PROCESS:USER:INTERRUPT 
	    PROGRAM:WRITING:DEMONS PSYCHOLOGY:DEMON PULLOUT PULLOUT1 PUPP PUPRETTYPRINT PUPRIN1 PUPRINT PUSH:DEMONS 
	    RANDOMSELECT REINVESTIGATION:DEMON RELEVANT REMOVE:EFFECTS REMOVE:IDEN RFAST SELECT:STRUCTURE:TYPE 
	    SEMI:COMPILE SET:UP:EFFECTS:TABLE SET:UP:IDEN:TABLE SETDIFFERENCE SETINTERSECTION SETUNION SINGLETON 
	    SINGULAR SIZE SNAPSHOT SPECIFICITY:CHECK:DEMON SRESULTS START STRUCTURE STRUCTURE:COMPATIBLE 
	    STRUCTURE:INDUCING:DEMON SUBALLEVELS SUBSTITUTE SWITCHFAST SWITCHFN TEMPORARILY TRACE:COMPILE TRUE:MINIMUM 
	    TRY:TO:SATISFY TUPLE UNGERUNDIFY USER:INTERRUPT:AT:ADAPTING USER:INTERRUPT:AT:CODING 
	    USER:INTERRUPT:AT:DEBUG USER:INTERRUPT:AT:END USER:INTERRUPT:AT:PHASES VECTOR VECTOR:AVERAGE VECTOR:SUM 
	    WHEN:VALUE Z@))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP